﻿Imports System.Data
Imports Comunes

Partial Class AppFront_javascript_objetos_MasterPageAJAX
    Inherits cls_sesion
#Region "VARIABLES"
    Dim v_obj_objJSon As New clsJsonSR.clsJsonSR
    Dim v_str_respuestaJson As String = ""
    Dim v_obj_menuApp As New cls_menuApp
#End Region

#Region "EVENTOS DE LA PAGINA"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If USUS_USUARIO.ToString <> "" Then
                Select Case Request.Form("accion").ToString
                    Case "listarMenuPrincipal"
                        v_obj_menuApp.PEPE_NID = PEPE_NID
                        v_str_respuestaJson = v_obj_menuApp.listarMenuPrincipal()
                End Select
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Response.Write(v_str_respuestaJson)
    End Sub

#End Region

End Class
